Assign_InsHook


Purpose   Identifies a procedure which will be called every time the user
          presses the Ins key during field input.

Decln.    Assign_InsHook(Proc:Insert_proc);

Remarks   Proc is the name of the procedure to Hook into the IO routines.
          The procedure must be declared far with 1 passed parameter; a
          boolean. The procedure is passed the new state of the insert key.
          The default procedure sets the cursor to a full block in Overtype
          mode and an underscore cursor in Insert Mode.

Example

    {$F+}
    PROCEDURE INS_HOOK(INSERTON:BOOLEAN);
    BEGIN
        IF INSERTON THEN
           WRITEAT(71,25,WHITE,RED,'INSERT  ')
        ELSE
           WRITEAT(71,25,WHITE,RED,'OVERTYPE');
    END;
    {$F-}

BEGIN
    ASSIGN_INSHOOK(INS_HOOK);
END;

This procedure is only available for Turbo 5.0 programmers. Turbo 4.0
programmers should replace the procedure with the statement:

     IO_INSERTHOOK:= @INS_HOOK;